(include 'sys/class.inc)

;;;;;;;;;;;;;;;;;;;;;
; string static class
;;;;;;;;;;;;;;;;;;;;;

(def-class 'sys_str)
(dec-method 'length 'sys/str/length 'static '(r0) '(r0 r1))
(dec-method 'copy 'sys/str/copy 'static '(r0 r1) '(r0 r1))
(dec-method 'compare 'sys/str/compare 'static '(r0 r1) '(r0))
(dec-method 'to_long 'sys/str/to_long 'static '(r0 r1) '(r0 r4))
(dec-method 'from_long 'sys/str/from_long 'static '(r0 r1 r2) '(r0))
(dec-method 'read_utf8 'sys/str/read_utf8 'static '(r0) '(r0 r1))
